home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / text / edit / bah.lha / BAH3.3.1 / Rexx / SplitIndex.bed < prev   
Text File  |  1998-10-16  |  1KB  |  85 lines
  1. /*
  2. ** $VER: Split Index 1.0 (14.07.98) by M&F
  3. **
  4. ** Splits Aminet index into smallest file
  5. **
  6. ** Select the window containing the Aminet index
  7. ** and run this script. The window will disappear and 
  8. ** will reappear only when the work will be finished.
  9. ** This increases the process speed as there is not
  10. ** graphic rendering in the index window.
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. /*
  16. SetInputLock ON
  17. SetDisplayLock ON
  18. SetStatusBar "Working..."
  19. ControlWindow OFF
  20. */
  21.  
  22. SetPrefs CLIPBOARDUNIT 314
  23.  
  24. doc = 'empty'
  25. path = 'ram:'
  26. exit = FALSE
  27.  
  28. MoveSOF
  29. Find "|-----"
  30. MoveDown
  31. SetBookMark 0
  32. 'Move COLUMN=20'
  33.  
  34. DO FOREVER
  35.    
  36.   IF exit == TRUE THEN BREAK 
  37.     
  38.      GetWord
  39.     IF RC = 0 THEN DO
  40.         dir = RESULT
  41.         IF dir == doc THEN MoveDown
  42.         ELSE DO
  43.             IF doc ~= 'empty' THEN DO
  44.                 MoveUp
  45.                 MoveEOL
  46.                 SetBookMark 1
  47.                 MarkBlk
  48.                 MoveBookMark 0
  49.                 CopyBlk
  50.                 SaveClip path || doc
  51.                 
  52.                 MoveBookMark 1
  53.                 MoveDown
  54.                 MoveSOL
  55.                 SetBookMark 0
  56.                 'Move COLUMN=20'
  57.                 
  58.             END
  59.             doc = dir
  60.         END
  61.     END
  62.     ELSE DO
  63.         MoveDown
  64.         IF RC ~= 0 THEN exit = TRUE    
  65.     END
  66.     
  67. END
  68.  
  69. MoveUp
  70. MoveEOL
  71. SetBookMark 1
  72. MarkBlk
  73. MoveBookMark 0
  74. CopyBlk
  75. SaveClip path || doc
  76.  
  77. SetInputLock OFF
  78. SetDisplayLock OFF
  79. ControlWindow ON
  80. SetStatusBar "Done"
  81.  
  82. SetPrefs CLIPBOARDUNIT 0
  83. ADDRESS COMMAND 'Delete CLIPS:314 QUIET'
  84.  
  85.